home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_17815.txt < prev    next >
Text File  |  1989-01-07  |  2KB  |  81 lines
  1. -- card: 17815 from stack: in
  2. -- bmap block id: 14983
  3. -- flags: 0000
  4. -- background id: 12278
  5. -- name: trapname
  6. ----- HyperTalk script -----
  7. on opencard
  8.   if card field "word" is empty then put "A910" into card field "word"
  9.  
  10. end opencard
  11.  
  12.  
  13.  
  14. -- part 1 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=20 top=262 right=284 bottom=120
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Trap Name
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   Put card field "word" into temp
  29.   put trapname(temp) into card field "name"
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 2 (field)
  35. -- low flags: 00
  36. -- high flags: 2004
  37. -- rect: left=129 top=260 right=283 bottom=209
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 3
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: word
  46. ----- HyperTalk script -----
  47. on returninfield
  48.   click at loc of button "Trap Name"
  49. end returninfield
  50.  
  51. on enterinfield
  52.   click at loc of button "Trap Name"
  53. end enterinfield
  54.  
  55.  
  56.  
  57. -- part 3 (field)
  58. -- low flags: 01
  59. -- high flags: 2004
  60. -- rect: left=230 top=260 right=284 bottom=398
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 3
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: name
  69.  
  70.  
  71. -- part contents for background part 68
  72. ----- text -----
  73. The TrapName XFCN takes a trap word as a parameter and returns the name of the corresponding trap. Try the demo below for examples. Note that this XFCN expects the entire trap word as a parameter.
  74.  
  75. -- part contents for card part 3
  76. ----- text -----
  77. _FillCRoundRect
  78.  
  79. -- part contents for card part 2
  80. ----- text -----
  81. AA10